home *** CD-ROM | disk | FTP | other *** search
/ OpenGL Superbible (2nd Edition) / OpenGL SuperBible e2.iso / tools / GLUT-3.7 / PROGS / ADA / texturesurf_procs.adb < prev    next >
Encoding:
Text File  |  1998-08-12  |  5.3 KB  |  140 lines
  1. --
  2. --  (c) Copyright 1993,1994,1995,1996 Silicon Graphics, Inc.
  3. --  ALL RIGHTS RESERVED
  4. --  Permission to use, copy, modify, and distribute this software for
  5. --  any purpose and without fee is hereby granted, provided that the above
  6. --  copyright notice appear in all copies and that both the copyright notice
  7. --  and this permission notice appear in supporting documentation, and that
  8. --  the name of Silicon Graphics, Inc. not be used in advertising
  9. --  or publicity pertaining to distribution of the software without specific,
  10. --  written prior permission.
  11. --
  12. --  THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
  13. --  AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
  14. --  INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
  15. --  FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
  16. --  GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
  17. --  SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
  18. --  KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
  19. --  LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
  20. --  THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
  21. --  ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
  22. --  ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
  23. --  POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
  24. --
  25. --  US Government Users Restricted Rights
  26. --  Use, duplication, or disclosure by the Government is subject to
  27. --  restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
  28. --  (c)(1)(ii) of the Rights in Technical Data and Computer Software
  29. --  clause at DFARS 252.227-7013 and/or in similar or successor
  30. --  clauses in the FAR or the DOD or NASA FAR Supplement.
  31. --  Unpublished-- rights reserved under the copyright laws of the
  32. --  United States.  Contractor/manufacturer is Silicon Graphics,
  33. --  Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
  34. --
  35. --  OpenGL(TM) is a trademark of Silicon Graphics, Inc.
  36. --
  37.  
  38. with System; use System;
  39. with GL; use GL;
  40.  
  41. with Ada.Numerics; use Ada.Numerics;
  42. with Ada.Numerics.Generic_Elementary_Functions;
  43.  
  44. package body Texturesurf_Procs is
  45.    package GLdouble_GEF is new
  46.       Generic_Elementary_Functions (GLfloat);
  47.  
  48.    use GLdouble_GEF;
  49.  
  50.    ctrlpoints : array (0 .. 3, 0 .. 3, 0 .. 2) of aliased GLfloat :=
  51.       (((-1.5, -1.5, 4.0), (-0.5, -1.5, 2.0),
  52.       (0.5, -1.5, -1.0), (1.5, -1.5, 2.0)),
  53.       ((-1.5, -0.5, 1.0), (-0.5, -0.5, 3.0),
  54.       (0.5, -0.5, 0.0), (1.5, -0.5, -1.0)),
  55.       ((-1.5, 0.5, 4.0), (-0.5, 0.5, 0.0),
  56.       (0.5, 0.5, 3.0), (1.5, 0.5, 4.0)),
  57.       ((-1.5, 1.5, -2.0), (-0.5, 1.5, -2.0),
  58.       (0.5, 1.5, 0.0), (1.5, 1.5, -1.0)));
  59.  
  60.    texpts : array (0 .. 1, 0 .. 1, 0 .. 1) of aliased GLfloat :=
  61.       (((0.0, 0.0), (0.0, 1.0)), ((1.0, 0.0), (1.0, 1.0)));
  62.  
  63.    imageWidth  : constant := 64;
  64.    imageHeight : constant := 64;
  65.    image       : array (Integer range 0 .. (3*imageWidth*imageHeight))
  66.       of aliased GLubyte;
  67.  
  68.    procedure makeImage is
  69.       ti, tj : GLfloat;
  70.    begin
  71.       for i in 0 .. (imageWidth - 1) loop
  72.          ti := 2.0*Pi*GLfloat (i)/GLfloat (imageWidth);
  73.          for j in 0 .. (imageHeight - 1) loop
  74.             tj := 2.0*Pi*GLfloat (j)/GLfloat (imageHeight);
  75.  
  76.             image (3 * (imageHeight * i + j)) :=
  77.                GLubyte (127.0 * (1.0 + Sin (ti)));
  78.             image (3 * (imageHeight * i + j) + 1) :=
  79.                GLubyte (127.0 * (1.0 + Cos (2.0 * tj)));
  80.             image (3 * (imageHeight * i + j) + 2) :=
  81.                GLubyte (127.0 * (1.0 + Cos (ti + tj)));
  82.          end loop;
  83.       end loop;
  84.    end makeImage;
  85.  
  86.    procedure DoInit is
  87.    begin
  88.       glMap2f (GL_MAP2_VERTEX_3, 0.0, 1.0, 3, 4,
  89.          0.0, 1.0, 12, 4, ctrlpoints (0, 0, 0)'Access);
  90.       glMap2f (GL_MAP2_TEXTURE_COORD_2, 0.0, 1.0, 2, 2,
  91.          0.0, 1.0, 4, 2, texpts (0, 0, 0)'Access);
  92.  
  93.       glEnable (GL_MAP2_TEXTURE_COORD_2);
  94.       glEnable (GL_MAP2_VERTEX_3);
  95.       glMapGrid2f (20, 0.0, 1.0, 20, 0.0, 1.0);
  96.       makeImage;
  97.       glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL);
  98.       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
  99.       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
  100.       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
  101.       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
  102.       glTexImage2D (GL_TEXTURE_2D, 0, 3, imageWidth, imageHeight, 0,
  103.         GL_RGB, GL_UNSIGNED_BYTE, image(0)'Access);
  104.  
  105.       glEnable (GL_TEXTURE_2D);
  106.       glEnable (GL_DEPTH_TEST);
  107.       glEnable (GL_NORMALIZE);
  108.       glShadeModel (GL_FLAT);
  109.    end DoInit;
  110.  
  111.    procedure DoDisplay is
  112.    begin
  113.       glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  114.       glColor3f (1.0, 1.0, 1.0);
  115.       glEvalMesh2 (GL_FILL, 0, 20, 0, 20);
  116.       glFlush;
  117.    end DoDisplay;
  118.  
  119.  
  120.    procedure ReshapeCallback (w : Integer; h : Integer) is
  121.    begin
  122.       glViewport (0, 0, GLsizei(w), GLsizei(h));
  123.  
  124.       glMatrixMode (GL_PROJECTION);
  125.       glLoadIdentity;
  126.  
  127.       if w <= h then
  128.          glOrtho (-4.0, 4.0, GLdouble (-4.0*GLdouble (h)/GLdouble (w)),
  129.             GLdouble (4.0*GLdouble (h)/GLdouble (w)), -4.0, 4.0);
  130.       else
  131.          glOrtho ((-4.0*GLdouble (w)/GLdouble (h)),
  132.             GLdouble (4.0*GLdouble (w)/GLdouble (h)), -4.0, 4.0, -4.0, 4.0);
  133.       end if;
  134.  
  135.       glMatrixMode (GL_MODELVIEW);
  136.       glLoadIdentity;
  137.       glRotatef (85.0, 1.0, 1.0, 1.0);
  138.    end ReshapeCallback;
  139. end Texturesurf_Procs;
  140.